;
;  PURCH -- (c) 1990 Chris Butler
;

;VIDEO M


  set all off
  goto  top
all:
  set all on
top:

global boxllx 0 ; mod 8 = 0
global boxlly 0
global boxw  488
global boxh  115
global boxtitle "Max with Ed the engineer"
set h 17	; key height
set keycolor 14 ; keytop color in convbox = 14 (yellow)
set txtboxclr 14; 
cload max.clp 30 1 0	  ; max's face
tran on 15
cload cover.clp 32 0 1 
merge toursubs.txt

alice:
set boxtitle "Max and Alice in Accounting"
set entrypoint "entry_10"
pload palette1.pcx 1
palette 1
pfree 1
cload kim.clp 31 1 0
call steps.txt accounting

label401:
newbgrnd "kim1a.pcx" 80 40 1 0 50 5
;mouse on
set str1 "Hi Alice. Do you happen to remember seeing a MAXIMO requisition for"
set str2 " Block Bearings?"
say 1 @str1 @str2
waitkey 50
label1a:
getcmd
if @0<>"backup" label402
noise 500 200 50
waitkey 100
goto label1a

label402:
set str1 "Max, I already sent it to ABC Industrial Supply. And I got a great"
set str2 " price because MAXIMO showed me our purchase history with 3 vendors!"
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label401

label403:
newbgrnd "22.pcx" 80 0 1 0 100 9
set str1 "That's great. Can you look up the PO and see when the part's due in?"
set str2 ""
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label402

label404:
newbgrnd "23.pcx" 80 0 0 0 200 9
set str1 "It's due October 1. Max, I love this system. Since I dumped "
set str2 "paperwork requisitions, I've had extra time to price shop vendors."
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label403

label405:
set str1 "Right, and we know our vendors are performing better because we can "
set str2 "track them in MAXIMO! Alice would you like to see my draft budget?"
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label404

label406:
newbgrnd "24.pcx" 56 0 0 0 50 9
set str1 "Looks good. Let's see how it compares to this year's budget.        "
set str2 "[VIEWERS: TYPE `S' TO SEE WHOLE SCREEN] "
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label405

label407:
newbgrnd "25.pcx" 0 0 0 0 50 9
set str1 "Fantastic! We're forecasting 10% less than last year. MAXIMO means  "
set str2 "reduced overtime, fewer parts orders, and best use of shutdown labor."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label406

label408:
newbgrnd "kim1a.pcx" 80 0 0 0 200 9
set str1 "All that, PLUS it looks like you'll have your budget ready on "
set str2 "schedule for the first time ever."
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label407

;mouse off

if @all==on linkit
  link master.txt entry_10
linkit:
  link mis.txt all

; SUBR PURCH